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Hi. 

At the lust meeting, on 23iil July 1984. tlieni were bl people present. This 
IS u new rcicurd, it wus maxvellouB to see so wuny people Luni up. 

A nunljer of tilings were discussed, aid some more softwaie pages were liaided 
rourd; tlicse aie reprinted in tins netfsletier. 

The Teciinical Hanual is now uvailuiile. at $12.00 per issue. This manual is 
very good, contains 71 A4 pages, and is full of useful inforiMatiun. 

Re: New Roms These are now available from youi- usei- group for $25.00 per 
coiHplete set of 4 roHis, plus your old lows in excliange! Tliese lows come 
from a Christcliuixh firm, and weie originally put-chased from England. They 
liave been Hudified to suit tlie New Zealard Colour Genies whicli lias 
necessitated a nunber of changes, i.e. colour differences between England 
aid New Zealard. The disk coMHiards liave also been improved on. Tlie $25.00 
mentioned includes sui^lementaiy pages to be fitted into your Technical 
Hanual (wliicli of course, everyone lias ordered!!) Otlier diariges are as liave 
ali'eady been discussed in the last two newsletters. Do get in touch with 
us if you need any furtlier' explanation on anythirig. 

Allan Clarke demonstrated tlie software tliat lie now lias available. Prices 
are as pei' the software pages fuciiier on. Hie word processor was found to 
have a couple of lugs in. whicli Allan has since fixed, aid seems to be 
working well. Already orders liave been cowing in for- his programs. 1 can 
vouch tliat tlie word processor works on the new rows too. 

Talking about orders, software orders liave been fantastic. Over $1000.00 
wortli of softwar-e aid technical manuals have been ordered. These order's 
are all being copied by Aidy ard Ken so if you don't receive your oidex' 
within a day or two (if you liave paid postage) don't worty. Nitli liaving to 
hold down a daytime - job, this only Icjaves tlie evenings tor copying tlie 
software. And, in two weeks, Lliey liave managed to copy nearly $1000.00 
wortli of tapes, whicli is pretty go^. Of course, all Aucdrlard people uIk> 
put in orders at the meetings will not get their tapes until the next 
weeting, unless they liave enclosed an extra $1.00 to cover- postage. As all 
country mewbers so far have included this $1.00 their orders will be sent 
off as soon as tliey are complete. 

A lot of correspondence is going on with overseas softwars liouses. tie now 
have the sole New Zealaid rigliis to all (kniboot Software, wAiicli means Uiat 
no-one else but ourselves is allowed to sell their tapes in New Zealand. 
Ard, tliey are producing more ard wore software. Tliey also now liave 
JDTronics, D.C. Kent ard a few other companies’ suftwars available frsw 
tliew. As these companies don't seem inclined to answer- my letters 
thewselves, it looks as though we will have to get their software from 
Gumbout too, and I liave written to Gudioot to fiid out royalty costs etc. 
from these otlier companies. lie liave also sent off an order to E.A. 

Jackson (Superb Software) - we get one maxAev with a] ] his programs 

on it ((^nie (Zalc. etc)for tlie total amount of Pds 30.00. Hus is a saving 
of over 20 Pds if we had to buy each tape separately. Hus sliould be on 
tlie way to us now. 



Blank CIO computer are now available fixmi us at a cost of $1.50. Vie 

would faefer courttry meiiibei* to order mure tlian one tape at a time, and 
enclose postage, otherwise the Group make nothing on getting Uiem tiom the 
supplier and posting them out. We pay $1.2G eadi. basic coot, for the 
tapes. Tliis does not include labels, these, if required are an extra 10c 
eacdi. axil are coi^iletely blank. 

Keith McGill lias put into the Genie, the Easycode program that lias been 
publislied in Computing Today over tlie last few muntlis. A listing of tliis 
program is enclosed in this newsletter, and if anyone wants tlie complete 
tape, please seixl $3.50 to us, and it will be sent to you, or delivered at 
Uie next meeting. 

Tills goes tor all the tapes in the newsletters from #1 to date. They are 
all available at $3.50 eadi, from tlie Goldie family, ^idiose address is in 
iJie members list. Please get in touch with tliem, and they will send the 
tapes to you. They will also liave available, G-Mon aid Haunted House. 
Haunted House is a qrapliic adventure Uiat has been taken fium the Uabom 
book 'How to Write AdveiitiEe Programs’, aid had gzapliics eidded to it. Andy 
has turned this into a great progr-am. 

Anotl^ program tliat I regally like is 'Ouari'. This is anotlier one tliat 
Keithi McGill iuts corivei'ted on to Uie Colour- Genie, and }ias both a iiard 
level (where Lite cuaputer takes a long time to tliink) and a nut-so-hard 
level. A very enjoyable game. This too is available on tape from us. 

Two CSirisLcliurcli companies liave been lusy producing Disk Drives fur- Uie 
CkilouL' Gerue, aid both are a(parently nearly ready for distribution. We 
will let you know further- idien we lieeii- mor-e. 

We liave an updated list of members in this newsletter, and as you can see, 
we liave 62 member's now. I inteid to put an 'ad' in the papers slior-tly. but 
at Lite moment I liave all the work I can cope with, so it can wait until I 
catcli up a bit. 

Tliose of you that are tliinking of pur'chasing printers over the next twelve 
BKinUis, please note tliat Rakon liave only gut about 4 printer- interfaces 
left now. At $68.40 eacli. these are fairly reasonable, althuugli one member 
(Ron Bur-tun. Te Aruba), lias said that lie lias seen inter-faces from $40.00 
upward. Once the small stock Uiat is available lias gone, it will be very 
liard to get any mur-e: 

Well, that's it from me until next month. $ee you at tlie next meeting, 
wliich is on: 

20th Auuust. 1964 at 7.30i)m 

- Nula Huggins 


Here's a pr-ogram Uiat is based on an ar-ticle from Uie back cover- of 
'Sclimidtke ElecLxuiiics' brucliure of software. I am inclidirig a pliotocopy 
of the pLxigramme as printed, with a translation (or rather, a precis) of 
Uie accompanying text. 

Hi Res CcMohir-K 

Here's a trick to increase Colour Genie resolution from 160 x 96 to 320 x 
192. You can mix text and graphics in 16 culour-s.. Tlie program the 

memory space for the 128 pcxigrammable graphics characters, it can be 
modified and included in your own prograamies - tlie px-ugramme following is 
an exaiqile, plotting a mathematical function. It works like a diarml! 
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Exulaftaiion 
Line fl 

50 Dicubles keyboard for a increase in speed. Leave it out 

initil you've saved the ptx)qraiBrie on tape -if you have luade an eixor 
in typiny in tiie pcxigraniiie aid Lite keyboard is disabled, you’ve yot 
pr-ublems! 

60 Wipes pi-ograinnable grapiiics memory. 

80 Qiaracters for- co-ordinate lines defined. 

100-110 Co-ordinates drawn. 

120 Titles for co-ordinates. Translate Achse to axis. 

130 X is defined. 

140 The function to be defined is stated. 

150-260 Tlie trick! Just type it in, aid liave faitiij 
280 Keyboard enabled. 

Don't press botli reset buttons while tlie prograrane is running, or it'll 
cr^lcll. Have funf! Bend breclisel. 

Any of you who liave tlie interest aid knowledge, niiglit like to experiment 
witli tlds to produce oriyinal proyiammes luixiny FQI aid LGP. It seems to 
(lave many possible applications. 

- KeiUi McGill 
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r ’ 10 * Hochauf 1 OBSend* Graphlk (320x172) 

A;. 20 ' ■ 

' 30 ' B»rnd Drechsel (20.03. 17B3) 

40 ’ 

30 POKE 16406, 82 

bO FORX-8.HF400Ta8.HF7n^FiPOKEX,0iNEXT 
V ; > V r 70 0.5 1 CHAR 1 » D I MA ( 1 5 ) i J— 3049 1 K- 1 30 


so F0RX-0T015iREADA(X>iPOKES<HF400*-X,A(X)iNEXT ’ 

90 DATA23S, 0, O, O, O, O, 0,0, 1, 1 , I, 1, 1, 1 , 1, 1 
100 PRINTIB10,STRING«(30, 128) 

FORA-0TD19iPRINT19-i-4O»A,CHR*(129) iNEXT , 
PRINTIB73, "xrAch»B"| iPRINTIO, •‘y-Achse**| iPRINT1920, 

F0RX-OT023O < f ■ 

Y-INT(3QR(X»ioO)) ^ \ V :; 

A»INT(X/B)>lrB-INT(Y/0)Vl:S«8O9-H4-B*t4O T 
IFS<>HTHEN(J-J+8*K-K+1 i K > ■ 

Al-(X/8-A4-i)48iBl-(Y/B-B-*-i)4S • 

IF Al-OTHENPOKEJ-Bl, 128 . : . 

IF Al-lTHENPaKEJ-Bl,64 . 

IFAI-2THENP0KEJ-B1,32 ^ . V ' ; ' ' > ' 

IFAI-3THENP0KEJ-B1, 16 ;r-' ^ ' 

I FA 1 -4THENP0KE J -B 1 , 8 
IFA1-5THENP0KEJ-BI, 4 
IFAI-6THENPDKEJ-B1 , 2 
IFAI-7THENPOKEJ-B1 , 1 


110 
-120 
130 
140 
ISO 
1 60 
170 
^180 
•190 
200 
"210 
.'220 
230 
240 
230 
260 
270 
.200 
'290 


f (x) «SaR(X) "I 




IFAl-7THENPOKEJ-Bl,l 

H-SiPRINTIH,CHR*(K) ^ ■ V;'; 



Software Lista - Patife Fota' 


ADVENTURE GAMES 

DOUBLE AGENT $15.00 

A vei 7 good 3-D adventure gaiae, uitti soufil aid graptiics. 


COLOUR QUEST 1 - PI)0) THE DIAMOND OF DALMARLON $10.00 

COLOUR QUEST 2 - THE VEGAN INCIDENT $10.00 

COLOUR QUEST 3 - ENaiANTED GARDENS $10.00 

COLOUR QUEST 4 - CAMELOT $10,00 


There are two veraions of blus, one for old rons, one for new itnrb. 


COLOUR QUEST 5 - SHIPWRECK $10.00 

Thet'e are two versiona of tills, one for old roma. one for new rums. 


COLOUR QUEST 6 - PISHING QUEST $10.00 


A big THANK YOU to those people who let us borrow their tapes to make masters 
of for selling. This has saved the group money because we have not had to purchase 
the tapes from overseas, and will only have to pay royalty costs to the owners. 


Stirling Barr (address in members list) has PRINT@ grids for sale at 50c each. These 
were shown at the meeting, and a number of people purchased them. They consist of 
a printed screen layout with the positions down the side and a clear layer over the top. 
These grids are very professional-looking, and extremely useful. Please order direct from 
Stirling, and remember to enclose at least 30c postage. 
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OTHER MEW SOFTWARE TO BE ADDED TO THE GAMES LiECTIOM - 

FROIDS - PART 1 $12.00 

Quxte Intei^sting yaae Uiis. You litive to go Lhrougli lines, eating as many 
dots as is stated at tlie bottom of Uie screen, and avoiding tJie bomb tl»at 
runs thrxHjgh one of tlie lines at the same time. There is a time limit too. 
so you liave to be quick. Vou start off uitli say, tlu.ee dots to eat per- 
line at first, tlien after Uhj first screen is cleared, tlie number of dots 
increases to say, fiine. Ard so on, wrtii eadi scrrjen cleared. Hy daughter- 
got up to 29 dots, but wasn't able to clear* the screen on this orte, as the 
time ran out. 

FROIDS - PART 2 $12.00 

Haven't liad time to look at this game yet, will review it in tlie next 
magazine. 


MUSIC $12.00 

Tliere are 4 options available on tliis tape: 

a) Piano witli three octaves 

b) Coaipose a tune ard save it to tape 

c) Music testing of notes 

d) 'Play that Tune' - a 'Simon Says' game 

Again, I haven't had time to r'eview it properly yet. and a fuller 
description will be available in tlie next magazine. 


FLYING BYTES $14.00 

This is a 'flight simulator' available for 32k kOM maciiines. It needs the 
new ROMs ard will not work on tlie old ROMs tliat most of us have got. This 
IS a very involved program, ard witliout really sitting down aid learning 
it. i can tell you that X found it quite difficult to remember where 
everytiiing was, and ixit being a pilot, I liad trouble remembering wliat I was 
supposed bo be doing i.e. wtien to put my flaps down, wlien to lift them, 
when to turn, etc. You get a map of tlie airport, tlien you go back to tlie 
instr'ument panel ard work from that, until you need to see whetlier' you are 
way off course, wlien you go back to tlie map again. 


BACKGAMMON $12.00 
Same as tlie game. The comutcr- does not learn by its mistakes tliough. Good 
graphics. 


PUCKMAN $12.00 
Good game - 'Pacman' style. Loads as two separate programs. 

MICRONOPOLY $12.00 
Same as tlie game. Program did liave a couple of bugs in, but we liear- tliat 
tliese may liave been fixed. 


SOFTWARE THAT At.LAW CLARKE NOW IIAS AVAILABLE 


RS232 DRIVER $15,00 

Hub litio been mentioned befot-e, tud is now up aid txinning. It will be 
demorisirated at tlie Hieetiny. Unf orl-uriately , country Hiember-s won't yet to 
see this pL'ogram in action. 


DISASSEMBLER $15.00 

Hiis is workiriy well, and 1 liave used it on my macliiiie witli success. 


WORD PROCESSOR $15.00 

Tliis progiTuii is in basic, but lias fast macliine code routines in it. 
According Lo Allan, it saves data 'in Uie twinkling of an eye'. For tlie 
}trice tins will piobably be tlie clieapest wioid poLocessing program we will 
liave. Allan assures me it leaves 'Worp"l' ioc dead. ( Tills is tlie word 
processor- 1 liave on my Genie aid is also tlie one Uiat Rakon liave let out to 
a couple of dealers (mainly in Wellington and C^iristcliurcli I think). 


GRAPHICS GENERATOR 

SOME OF YOU MAY HAVE TRIED THIS PROGRAM 

MOST OF YOU HAVING FOUND THAT THE SCREEN DISPLAY 

LOOKED STRANGE WILL HAVE WIPED IT FROM MEMORY 

FOR THOSE WHO KEPT IT SOME EXPLANATION IS 

NECESSARY. 

THE PROBLEM LIES IN THE PRINTER NOT ACCEPTING 
MODSEL CHRS. 


I 


I 


10 A$="»1234567812345678« 
>50 IF K$=" ■" THEN ?§C,''« 

?§C, 


570 

580 

590 

600 

730 

750 

780 


?@C," 

?@c,"*r 

:?ec,"-" 

?" BY (•)" 

?:?:?" PRESSING THE SPACE BAR WILL PRODUCE B" 
?;?:?" IF YOU GO OVER A m THEN • WILL APPEAR" 


IS MODSEL/SHIFT 
IS MODSEL 0 


LINES 850-1480 ARE A BIT TEDIOUS BUT AS A FIRST TRY AT 
PEEKS & POKES I HAD TROUBLE PUTTING IT IN A LOOP. IF YOU 
CAN DO IT GOOD LUCK... 


LINES 1950,1960,1990 THE MODSEL CHR IS MODSEL/SHIFT S 


FINALLY LINE 2310 WAS A SPECIAL VERSION FOR OUR EDITOR 
IT SHOULD READ "NICE" 


REGARDS 

Chris 


i 


COLOUR GEHIE SNIPITS! 


FOR THE mCHINE CODE PROGRBflER^ INPUT AND OUTPUT PORTS. 

There are three Ports on the Colour Genie th5.t can be used 
for talking to the outside world. I shall try to show you how to 
use thew. 

1. P.S.G. (Programable Sound Generator). 

The P.S.G. contains two I^'O Ports but they are not so simple 
to Program. The P.S.G. is located at I/O addresses 0FS hex ^.nd 
0F9 hex. Thtese Ports are used as follows; 


0F8h. Points to the Control Register and there are 
16 of these. The ones that are used for I/O 
are d7hj OEh and OFh. 

0F9h. This is the Data Register ie. the information 
you want to inPut or output to the Parallel 
Port. 

There are only two bits of Control Register 07h that are 
used.' they are 6 and 7. If bit 6 is 0 then Port fl (Register 0Eh> 
is set to input data. If it is set to 1 then YES it will output 
the data. 

AH! you might say.- that^’s simple. Hold on., not so fast., 
before you can send that data out you h-ave to set the Control 
Register to 0Eh so that it will go to the Output Port. 

TO RECAP- T.:. send data out to Port A.: 

SET 0FSh to 07h 

OFSh to 04h 
0F8h to 0Eh 


How any data you send to OF'Sh will be sent to 
the Parallel Port. 


is 


As you 
ex'sessed 


can see we h.ave only 
in a sim.aler manner. 


used O'ne Port. 


The other Port 


Bits 6 and 7 of Control Register 7 are used as follows.; 


Bit 


b. 


This is used to turn Port fl into either inPut 
':>r 'OutPut. If it is 0 it is InPut or if it 
is 1 it will be Output, 


Bit 7. This operates in the same way as Bit 6. 

Controling Port B instead of Port fl. 


To inPut or outPu.t the "data you must select the Port you are 
g.jing t'j excess. This is d'one by selecting Register UEh for 
Port fl or 0Fh for Port B ie, 

SET 0F£d-i to 0Eh for Port fl 

0Fcih to 0 Fh f'Of' P'ort B 

That's all for now as I don-'t 
know any more. ZLl BQE. 
ai ias Keith Dix 



1 'TH:£ is h FROGRAM SENT TO US BY HESyiN FHILIPSEN 

2 ' 

3 ' 

4 C-OT0200C. 

5 GCS'JBSOOC 

ICO C0'l0UR::FRIKT4'10,"THE game of usstermiuovcolcur 

lie P0 KE:o410,96 

160 C(0)^A 

1^'C FOF;!;=1TOA 

2GC OifDMNT (R’i:;5)M) 

1 '' J' 7 V *\f 
Li\j uLiiiH 

200 fof:;=:toa 

00306730 
OdG C(M=X 


i. w 


170 PS-"'' 

:7? FORXl^irCn 
275 Fl^PS+CHRi!G(Xl)) 


F06?=1T010 
* - 1 

- T t n r- II 

rr, J , 

OOLCOR::?RINT07i4,“V: 

' * 

:.irnL'> 


LO YOOI GUESS 


315 FRIUIFREC'S") 

320 COLOURC'PRIMilltl.Gt 
?P0 ES !?)=;.$ 

350 00306520 
OtO rS^STHElIlOlO 

w ' i‘ -'4 L d'C ‘J\J 

33C FS;;.T>;53+T.B 

210 y,f;::B 

400 PR:’;76155+T,V 


42 'lE.'.i? 

440 -EiNTSIE.FJ 

450 ?ft!;iTt544 /5ini;T TO PLAY AGAIN"; 


400 Ii;?'JTA$ 

4S2 !FA« = “Y''THEN:=C;CLS;OGI03030 
44C FFi;;r 
:'Ci EU'O 


5!0 -EX CCXFUIE BLACK PEGS 

520 2'2RX1^1T0A 

522 C-(Xl)^ASC(MID$iG4,Xl.l)) 


540 FORK^ITOA 

550 IFGlKK'CiK'IHENSEO 


:C 6=sn 


530 RErURN 

542 F.EM eeXFUTS UTHTE PEGS 
too FORXI^ITOA 
t05 R'X1)=ASG{KI2J(P<.X1.1)) 
605 liEXrXl 


6!C '0=0 

620 F2RI=;T2A 

632 Fjr.J=lTGA 

640 IFGiriORIJlIHEIitSO 

65'2 t=i'+] 


660' F:( J)=0 
670 GGTO690 

680 next; 

690 N-EXTI 
700 

710 REIUF;’.’ 

720 REM tra;;s;.ate colour 

730 1FXC1THE;;760 
740 X=69 
750 RETl'S.'; 

760 IFX-2IHE:i740 
77C X=S2 
780 RETUr.X 
790 IFX<'.3:HE';320 

soo x=so 

BIO RETUnN 
520 ;FX‘'M:HEE350 
£30 X=79 

340 reiuf;; 

£50 IFXC STHENSSO 
360 X=71 
370 REIun’i 


,VJ71. 


S&C X=66 
692 RETURN 

lOlG FRINTi554,"yCU '*’1;." !" 


1020 0010450 
2000 COLOUR'l 


ARE AND PEGS 


2010 CHAR4 :CL£;FGRN=BTGB1ETEF40 •pRI!lTi«,CHRl (213) :!1EXT 
2020 F0RK=72T0557STEF4C:PRIN:i'X,CHR$i212; :KEXT 
2020 FORH=198T(0583STEP4O:PRIN:EX,GHRt(212) ;NEXT 
2055 PRIKItfll4,"3:B“ 

2040 FuRf4=B;T059S.PRINT5X.C'n'RS'2G9) ilE.XT 
2050 FORf1=B3IG158 : FRINIiX ( 202 ) : NEXT 
206C FORf'=B4T072:PR!KTSX.CHF<(2lO):NEXT 
_070 FOR'Tj^ 1TC12 ! T4=RNJv 1 5 ) ;CC.oURT4 
2075 READK ;FRIN'T«'322tT3 ;NEXT 
2077 DATAG,0,L,0,U,R, ,C.O,L,E,S 
2030 COLOURS: FRINTS402,"R =REE" :CGLOUR3 
2235 FR;MTi4!4.CHRl(230) 


2&40 C:LClR 2;FRINIS442."G =GR£EN" ,C0L0UR;:PRINT8454 ,CHRi(;30) 
2102 COLOURS ; FR I NT§4 32 , " 0 =CFjiNGE " ; COLOURS ‘ PR I NT i 4 9 4 , C:-iS$ ( 2 3 0 ) 
2110 CCLOUR6:PRINIf522,"B = BLUE COLOUR 6 :FRTN70534,CHF4(230) 
2120 COL2UR4 : FRI NTP562 , ' Y =VELLOi'” ; COLO'JR4 : PR I NT8'574 . CHR s ( 230 ) 
2130 CC LOURS : ?R I MTP602 , “P =PURFLE‘ : COLO’JRe : PR I NTi6 1 4 ,OHR » ( 230 » 
2140 RETURN 


3000 CL£:FRiNT4'170,TKE GA71E OF XASTERflIND" 

3010 PRINT' THE OBJECT OF THE CAKE IS, TO GET 4 OR 6" 

3020 PSINT'PEGS IN THE RIGHT POSITION'. ' 

3030 PRII;Ts360,‘YO’J HAVE 2 CFIIONS 4 OR 6 PEGS. 

£040 CLEARl CO :IfP’UI "WHICH OPTION CO YOU TA.".E:";K 

3050 IFK=4THENTl=148;T2=103:fl=4;B=67;Bl=547;B2-534:B3=147:B4=67, 
3060 T1=146:T2=105:A=6:B=65:B1=545;B2=5S5:B5=145;B4=65:G0T05 


Ci PJ 


! RFfl THIS IS A VERSION OF HANGMAN FOR THE COLOUR GENIE, 


4 SENT TO US BY HERMAN PHILIPSEN OF HAVELOCK NORTH 

10 GOTO930 
0 NV-lOO 

0 FORN= 1T0RND(NU ) 

40 READW$;NEXT 

50 COLOUR 1 

0 '.-,0 SUBS 30 
7 0 GGSUP.6 7 0 

30 GOSUBl 70 : PRINT : PRIMTINI : PRINT 
90 FRIMTC3S3 , " ABCDEFGH I JKLMNOPGRSTUVUaYZ " 

10 0 G = 0 

1 10 COLCURl i GOSUT'-O 7 0 I G = G -t- 1 ; GOSUB-I 60 : GOSUB'S 1 0 
100 IFIP -C NAND.P \ - ] THENl i 0 
1 O'O GOS’JB590 . GCSUET 4 0 
ISO GGT030 
170 GOSUE'7 7 0 

1 3 C; PR I NT : PR I NT T AB ( 1 3 ) " HANGMAN " 

190 PRINT ; INPUT "DO YOU WISH TO USE YOUR OWN WORD (Y/N:i".;K? 

195 IFK$="N"THENH1=W$ ;N=LEN(H$ ) : GOTO260 

SCO PRINT ; PRINT : PRINT"TYPE A WORD OF NO MORE THAN 14 LETTERS" 

TIO PR I NT; PR I NT 

22 0 PR I NT "MAKE SURE THE OTHER PLAYER " 

23u PRINT" IS'NT LOOKING. " IPRINT IPRINT 
24 l. 1NPUT"H!DDFN WORD" ’Ht iM^^LEIKHt ) 

25C I FN=^OOHN:: MXl HEN240 

2 a 0 W G = T '2 0 0 

270 I N$^ "GUESS ONE LETTER OR THE WHOLE WORD" 

230 GL= 1 : IP=0 
290 mg.= 9'9;VG = 5 
9u2' GOSUB7 7 0 

310 FORZE=0TO127 :HT(EZ) ^0 : NEXTZZ 
320 FORZZ=lTON;HH=A£C(MIDt (H$ ,ZZ, 1 ) ) 

2 30 GB ( ZZ ) =A£C ( " - " ) 

o-L'i HT ( HH ) =HT ( HH ) + 2 r ( ZZ- 1 ) : NEXTZZ 
350 RETURN 

360 FRINTGB36 , "ABCDEFGHI JKLMNOPQRSTUVWXYZ " 

370 REM 

330 P'RTNTGSQO , "WHAT DO YOU GUESS " : FORZZ - 1 TON : PR I NTGHR t • GS ■' ZS ) ) : : NEXT 

3 VO INFUTG$ 

•ICC At=G$ ;PRINTOS21+ASC(A$ ) ,CHR$ (32) 

4 1 I FLEN ( G n =NTHENRETURN 
4 20 IFLFN(G$) : ; GLTHENPR I NT I N $ :GOTO3S0 
430 F0RZZ=1T0GL 

440 GO ( ZZ ) =ASC ( M I D$ ( G $ , ZZ , 1 ) ) : NEXTZZ 
450 RETURN 

4 60 I FLEN ( G4 ) 2 ; NTHEN490 
47 0 I FG i =--HI THEN I P^N : RETURN 
4 BO WG = WG-1 : RETLIRN 

4 9 0 I X = 0 : FORZZ= 1 T OGL : HH^^HT ( GO ( ZZ ) ) 

500 IFHH=0THEN530 

51 0 F0RYY=1T0N: IFHHO 2* INT(HH/'2)THENIP=IP+1 : IX=IX-H : G£ ( YY ) =GC ( ZZ ) 

52G HH= I NT ( HH/2 ) : NEXTYY 

530 NEXTZZ 

540 IFIX=0THENWG=UG-1 1GOTO780 
550 RETURN 


Z60 IFIP=^MTHENPRINT"THAT'S RIGHT! ".;;GOTO530 

570 IFG = riGORWG<OTHENPRINT"TOO MANY GUESSES--YOU LOSE'" 

580 RETURN 

590 IFIPONTHEN640 

600 I FG= 1 THENCLS : PRINT" YOU MUST BE PSYCH I C . " 1 G0T06 4 5 
610 CLS ; PRINTGYCO , "YOU GOT IN " ; G ; " GUESSEC . " 

620 IFG <=VGTHENPRINT : PRINT"VERY GOOD." 

630 G0T0645 

640 CLS : PRIMT&720 , "YOU COULDN'T GET " 

645 PRINT'T200 , "PRESS Y'i FOR AN OTHER GAME" 

650 C« = 1NI:EY$ ; IFCt = " "THEN650 

6 6 0 I FC $ = " Y " THEN 1 OELSEEND 
6 7 0 GOSUE7 7 0 : RETURN 

620 DJMHT!2551 
oVO ZZ=20 ; DINGS’' ZZ ) 

7 00 riii-iG5(20) 

7 1 0 0/:= 20 : DI NGG' MX ) , HI ( 20 ) 

7 20 L^-ASC("0") 

730 RETURN 

" ■; 0 GOSUB750 : NX $ =X$ : RETURN 
750 X$==INKEY1 ; I FX $ = " " THEM7 50 
'i C'O RETURN 
7 7 ’2 CLS: RETURN 
730 P=P+1 

V "0 C.CLCUR4 ; IFP== 1 THEN870 
‘ 0 I F F' -■ 2 T H E N S ■■T 0 
31G IFP=3THEN300 
320 COLOURS : I FP=4THEi2= 1 0 

3 3 0 CLiL'73ijRS ! I FP = 5 T HE M PR I ’ IT S' 1 S 8 , H 1 i I GOTO550 

6 -10 COLOUR6 ; I FP = 6THEN 1110 

7 5 0 'ZOLOURC : I FP= 7THEM 116 0 

nt-O COLOUR2 : IFP’-STHEMl 1 70 

3c2 C0L0UR4 : IFP=9THEN1 190 

865 COLOUR4 : I FP= 1 OTHEN 1 200 

370 PRINT2696,CHR$ ( 205) I FORX= 697T07 0 6 : PR I NTCX . CHR i ( 2 02 ) : NEXTX 
S30 PRINTC707 ,CHRt ( 224 ) : GOTO550 

890 FORX = 661TO141STEP-40 : PR I NT^X , CHR $ (202) : NEXTX : GOTO550 
900 FORX=l 42T014& ; PRINTGX,CHRJ ( 202 ) ; NEXTX : GQTO550 
9 1 0 PRINTC3 02 ,CHR$ ( 205 ) ; PR I NTG26 3 , CHR* ( 205 ) : PRINTG224 , CHR $ ( 
920 PRINT01 35 ,CHRt ( 205 ) I PR I NT0262 , CHR$ ( 226 ) ; PR 1 11X0223 , CHR$ ( 

26 ) : GOTO550 
730 CLEAR500 ; ST=^-3072 
940 FORAD=STTOST+63 
9 5 0 READD : POKEAD , D : NEXT 
9 o 0 H 1 $ = " " : FORM = 1 TO 1 S 
9 'T 0 READX : H 1 $ =H 1 i +CHR $( X ) I NEXT 
930 GCT020 

990 DATA60 , 24 , 24 , 60 , 24 , 24 . 60 , 24 
] 0 0 0 DATAO ,0,0.1,3,4,24,16 
1 0 1 0 DATA3 1 , 96 , 129,0,0,226,20, 101 
1 020 DATAl 93 ,32.16,12,2, 229 ,35,35 
1030 DATAl 6 , 8 , 4 , 2 , 1 , 0 , 0 , 0 
1 040 DATAl 2 ,224 ,0,96,48,144,64,63 
1050 DATA4 , 3 , 1 6 , 8 , 16 , 32 , 64 , 1 29 
13 6 0 DATA 1 2 , 6 3 , 6 3 , 1 2 , 6 3 , 6 3 , 12, 12 
1070 DATA 1 28 , 26 , 8 , 3 
1 '630 DATAl 29 ,230,131,26,8,8,3 
1090 DATA 2 32 , 1 33 , 1 34 , 26 , 8 , 8 
1100 DATA) 35 

1110 PRINTC347 ,CHR1 ( 205 ) ) CHR$ ( 202 ) 'CHRI ( 202 ) ) CHR$ ( 224 ) 

1 1 20 PRINT03B7 ,CHR$ ( 204 ) CHRt ( 233 ) ) CHR$ ( 204 ) CHRt ( 204 ) 

1130 PRINT’S‘427 ,CHRJ ( 204 ) .: CHRi ( 233 ) ' CHR$ ( 204 ) ' CHR* ( 204 ) 


74 rj 


1140 PftINT§'467 ,CHR$ ( 204 ) ; CHR$ ( 204 ) CHR$ ( 204 ) ; CHR* ( 204 ) " 

1150 GOTO550 

1160 PR I rjT&38 5 , CHRi ( 20 2 ) ; CHRl- ( 202 ) : PR IMT(i'4 25 , CKR$ ( 202 ) : PRI MTR4 6 4 , CHR^ ( 202 ) ' GHRI ( 
202 ;> 

1165 GOTO550 

1170 PR INTGS 1 2 , CHRI ( 20 2 ) CHRI ( 202 ) ; PR I NTO'SS 2 , CHR:- ( 20 2 ) : PRINT&3 9 1 , CHRI ( 2 02 ) ; CHRI ( 
202 ) 

1130 GOTO550 

I 1 2 0 PR I MTS'S 08 , CHRI ( 2 02 ) : PRI NTS54 8 . CHRI ( 202 ) : PRI MTS5 3 6 . CHRI < 205 ) ' GHRI ( 20 2 ) CHRI ( 
202 ( 

1 19 5 C 0 T 0 5 5 0 

12 00 PRIMTS5 1 0 , CHRI ( 2 02 ; : PRIMTS550 ,CHRI t 202 ) ; PR ! MTS5'=' 0 , CHR I ( 202 ) ' CHRI (202 i CHRI ( 

2 2 4) 

1205 FGRS==lT010CO:nEXT 
1210 GOTO640 

1220 DATAMOUTH , RIGHT , DEAD . WORM , CHEST , ROW , SORT , TRUE . CHEER , SON , SUN , RUN . RAT , WORK , PI 
E , FDMC E , PAPER . PEOPLE , MOTOR , BUSY , ST I FF , I T 

1 23 0 DATAPLEASE , DANCE , FRONT , MONTH , YEAR , DAY .HIGH, LOW , TODAY , WEATHER , LADDER , BABY , Cl- 
ALK , HEAVY , CLOSE , YOUNG , F I ELD , EASY , TASTE , I N . RAD I O , FR I END , PAST , WONDER , SUGAR , KNOT - Lr 
MB . VO I GE , TOUCH . KN I FE , R I CE , G I ANT , CLOTH , ER I DGE , FRESH , OF 

1 2 4 0 DA T AP I N , HEnLTH , WEALTH . M I STAKE , NOTH I NG , COUNTRY , RED , BLUE , OCEAN , SK I N , TOE . WORK , 
SP'' RT . BEAUT I FUL . UNDERSTAND , SOMWHERE , EVERYTH I NG , EVERYBODY , YESTERDAY . SOMETH I NG . EE" 
WEEN , A 

1 2 5 0 DATAANYTH I NG , BREA'IFAST , CM I LDREN , ALMOST , SUMMER , AFTERNOON , SHUT , CARPENTER . AMBL 
LANCE - MED I C I NE , M I SERABLE , DAMAGE , ACC I DENT , MACH I NE , BATTERY . MONKEY , HORSE , PROTECTED . 
REC'J AURA NT 


MULTISORT 


from Keith McGill 


Sorts up to 100 items: 

1). A-Z 2). Z-A 

3). 1-100 ^). 100-1 


(From 55 Advanced Programs in Basic, TAB) 


K, McGill FROM 


iS ADVANCED 
OR ALPHABETICALLY t 


10 CLS 
12 COLOUR 1 

15 PRINT0134 , "T MULT I SORT t" 

16 PRINT : PRINT ; PR I NT "ADAPTED FOR COLOUR GENIE BY A 
OMPUTER PROGRAMS IN BAS I C ' ( UM . SCOTT WATSON, TAB)" 

17 PRINT : PRINT : PR I NT "THIS PROGRAMME WILL SORT SEQUENTIALLY 
LIST OF DATA" 

18 PRINT" YOU MAY SAVE THE RESULTS IN NORMAL OR REVERSE 
CLEAR 1 000 : PRINT I INPUT"NUMBER OF I TEMS " • NUMBER 
D I M S ( NUMBER ) : D I M S * ( NUMBER ) 

PRINT: PR I NT "TYPE OF SORT " : PR I NT I PR I NT " ( 1 ) NUMER I C , LOWEST TO HIGHEST" 
PRINT"(2) NUMERIC, HIGHEST TO LOWEST : " ; PR I NT " ( 3 ) ALPHAMUMER I C , ALPHABET I ZED " 
( 4 ) ALPHAMUMER I C , REVERSED " 


ORDER" 


2 0 
30 
40 
50 
HIT 


PF 


o 0 I NPU 7 " ENTER SORT CHOICE < 1 , 2 , 3 , 4 ) " D I R 

7 0 IF DIF{:-2 GOTO vO 

8 0 FOR INDEX=1 TO NUMBER : PR I NT " I TEM NO . " : I NDEX " ":;IHPUT S ( I NDEX ) : NEXT INDEXlG 
OTO 100 


9 0 FOR INDEX=1 TO NUMBER 1 PR I NT " I TEM NO . " I NDEX INPUT S$ ( I NDEX ) : NEXT INDEX 

100 OLD^l 

110 OLD=2:hOLD ; IF OLD<NUMBER THEN 110 
1 2 0 OLD= I NT ( ( OLD- 1 / 2 ) 

150 IF OLD=0 THEN 290 
140 LIMIT=NUMBER-OLD 
150 FOR INDEX= 1 TO LIMIT 
16 0 K ■ J L D = I N i-i E X 
170 ''.BEP^HOLD + OLD 

ISO IF DIR=1 THEN 190 ELSE IF DIR=2 THEN 210 ELSE IF DIR=3 THEN 230 ELSE IF DIR= 
4 GOTO 250 ELSE PR I NT " I LLEGAL SORT CHOICE" IGOTO 40 

190 IF S ( KEEP ) ^ S ( HOLD ) THEN HANG^S ( HOLD ) : S ( HOLD ) ==S ( KEEP ) : S ( KEEP ) =HANG : HOLD = HOLD- 
OLD:IF HOLDiO THEN 170 


200 GOTO 260 

210 IF S ( KEEP )>£( HOLD) THEN HANG=S ( HOLD ); S ( HOLD ) =S ( KEEP ): S ( KEEP ) =HANG : HOLD=HOLD- 
OLD:IF HOLD>0 THEN 170 


220 GOTO 260 

230 IF St (KEEP) <S$ (HOLD) THEN HANGt =St ( HOLD );£$( HOLD ) =S$ ( KEEP ): 3$ ( KEEP ) =HANG$ : HC 
LD=HOLD-OLD : IF HOLD) 0 THEN 170 
240 GOTO 260 

250 IF St (KEEP) > St ^ HOLD) THEN HANGt=St ( HOLD ): S t ( HOLD ) =S t ( KEEP ) I S $( KEEP ) =HANG $; F 
OLD = HOLD-OLD : IF HOLD;- 0 THEN170 
260 NEXT INDEX 
270 GOTO 120 

2S0 inFUT"£ORT COMPLETE ... PRESS RETURN FOR SORTED LIST ":A$ 

290 INPUT-SORT COMPLETE ... PRESS RETURN FOR SORTED LIST ".'At 
300 CLS .'FOR INDEX=1 TO NUMBER 
310 IF DIR>2 GOTO 340 
3 20 PRINTS INDEX ) 

'3 3 0 GOTO 3 50 

340 PRINTSt ( INDEX) 

350 NEXT INDEX 

-55 INPUT"ANOTHER SORT - Y/N'MCt 

356 IF LEFTt (Ct . 1 )="Y" THEN 20 ELSE 360 

3 6 0 F R I NT : PR I NT ; PR I NT " END OF PROGRAMME " ; END 



iO 'THIS IS A GAME OF NOUGHTS AMD CROSSES FOR THE COLOUR GENIE 

20 ' 

30 'SENT TO US BY GEOFF I1ITCHELL, OF MANGAUHA I 

40 ' 

100 DIN C ( 9 ) , W( 72 , 5 ) 

120 CLS : PRINT "THIS IS A GAME NAUGHTS AND CROSSES PR I NT 
130 PRINT ; PR I NT "I'M ' O ' , YOU ' R 'X'.": PR I NT 
135 PRINT ; PRINT"THE POSITIONS ARE;":PRINT 
140 PRINT "1 2 3" 

150 PRINT "4 5 6" 

160 PRINT "7 a 9" 

165 PRINT iPRINT" HIT -RETURNTO BEG I N I NPUT Z : CLS 

170 G=G+1 

ISO IF GO; 72 THEN 190 ELSE G= 1 
1 V 0 FOR I = 1 TO 9 : c ' I ) = 0 ; NEXT I : C= 0 ; C 1 =0 

?00 RESTORE: IF RND'O) ".5 THEN 220 
2 10 PRINT " I ■ LL GO F I RST . " : PR I NT : GOTO 300 

2 20 PRINT "YOU GO F I RST . " : PR I NT 
225 FOR Z=1 TO 500 : NEXT Z 

2^'0 PRINT : INPUT "GHAT IS YOUR NEXT MOVE": M : GLS 

240 GOSUB 650 

250 IF E=0 THEN270 

260 PRINT "ILLEGAL MOVE. "230 

2 7 0 C. ( M )=2 : GOSUB 7 S 0 : G = C + 1 

250 C1=G1+1 :W(G,C1 )=M 

290 IF E=1 THEN 540 ELSE IF C=9THEM540 
500 M =1 

3 10 I F C ' M ) <. . 0 THEN 3 5 0 ELSE C ( M ) = 1 : GOSUB 7 S 0 

320 IF E=1 THEN 500 ELSE CCM)=0 

3 3 G M ^ M + 1 : I F M ; 1 0 HEN 3 1 0 
340 M=1 

350 IF G (Ml : 0 THEM 370 ELSE CRM) -2; GOSUB 700 

360 IF E-1 THEN 490 ELSE C(M)=0 

370 M = M+l:IF MV;: 10 THEN 350 

350 IF G=1 THEN 450 ELSE 1=1 

390 E=0:FOR M=1 TO Cl 

400 IF U( I .M) =U(G,M) THEN 410 ELSE E=1 

410 NEXT M:IF E= 1 THEN 440 

420 M=W ( I ,M-1 ) ; IF N=0 THEN 440 

430 IF CHM)=0 THEN 490 

440 I = I +1:IF I -.,,. G THEN 390 

450 IF RMD ( 0 ) ; . 4 THEM 480 

460 READ M:IF CRM.'C O THEN 450 ELSE 490 

4 7 0 DA TA 5 . 7 , 3 r 9 , 1 , 6 , a . 4 , 2 

430 M=:NT ( 9:TRND ( 0 ) ) + 1 : IF C(M)=0 THEN 490 ELSE 430 
4 90 G (M:> = 1 

500 PRINT "MY MOVE IS;";M 
510 PRINT : GOSUB 690: GOSUB 730 
520 IF E=1 THEN 550 

530 G=C+l:IF 0=9 THEN 550 ELSE 230 
540 pr-. INT : GOSUB 690 

550 PRINT: IF Q = OTHEN 530 ELSE IF QOl THEN 570 

560 PRINT "I UON ' I I " : Y1 =Y1 + 1 ; GOTO 590 

570 PRINT "YOU WON I ' I " : X 1 =X 1 + 1 : GOTO 600 

530 PRINT "IT'S A T I E I M " : X2=X2 + 1 

590 FO.R 1 = 1 TO 5:U(G,I) =0:NEXT I:G = G-1 

600 PRINT: PRINT "ANOTHER GAME'^' ( Y = YES ) " : I NPUT At 

610 CLS; IF Ai="Y" THEN 130 

630 PRINTfPRINT "FINAL SCORE I PR I NT 

63G PRINT "Y0U"X1" ME"yi" TIE(£)"X2 

640 PRINT : PRINT : GOTO 910 

650 E = 0:IF M'-l THEN 670 ELSE IF M>9 THEN 670 


o:^0 IF C(M)==0 THEN 630 

670 E=1 

630 RETURN 

690 FOR 1=1 TO 9 

700 PRINT " '‘.:;IF 0(1) <>0 THEN 720 

710 PRINT "-";:G0T0 740 

720 IF 0(1) <>1 THEN 730 ELSE PRINT "0";;GOTO 740 

750 PRINT "X".: 

740 IF I/3<>INT(I/3) THEN 760 
750 PRINT :GOTO 770 
7 60 PRINT " 

770 NEXT I: RETURN 

7S0 E=0 ; Q=C( 5 ) : IF Q=0 THEN 840 


7 9 0 

IF 

C ( 1 ) 

< :> Q 

THEN 

S 1 0 

ELSE 

IF 

C( 9) <"m 

3THEN 

310 

d 0 0 

E = 

1 : RETURN 








SIO 

IF 

C ( 3 ) 

: Q 

THEN 

S20 

ELSE 

IF 

C(7)=Q 

THEN 

800 

B20 

IF 

C ( 2 ) 

■■■ : Q 

THEN 

830 

ELSE 

IF 

C ( 3 ) = Q 

THEN 

800 

!r;30 

IF 

C( 4 ) 

< ■ Q 

THEN 

84 0 

ELSE 

IF 

C ( 6 ) = G 

THEN 

SOO 

S 4 0 

Q = ( 

C( 1 ) ; 

IF 

Q = 0 T 

HEN 

87 0 





350 

IF 

C( 2 ) 

; > Q 

THEN 

360 

ELSE 

IF 

G( 3 ) =Q 

THEN 

800 

860 

IF 

G( 4 ) 

; ; Q 

THEN 

870 

ELSE 

IF 

C(7)=G 

THEN 

SOO 

3 70 

Q = ' 

C ( 9 ) : 

IF G 

i = 0 THEN 

900 





d d 0 

IF 

C( 3 ) 

. r*. 

•••. L: 

THEN 

890 

ELSE 

IF 

G ( 6 ) =Q 

THEN 

SOO 

8 90 

IF 

C. ( 7 ) 

: : ■ Q 

THEN 

900 

ELSE 

IF 

C(e)=Q 

THEN 

800 


700 G=0: RETURN 
910 END 


DUE TO LACK OF SPACE THERE IS NO LIST OF MEMBERS THIS MONTH 
ALSO MISSING IS THE EASY CODE LISTING 

THIS IS A VERY GOOD PROGRAM BUT HAS OVER 3000 LINES AND WOULD HAVE 
TAKEN 9 PAGES (HALF THE NEWSLETTER) . SO IF YOU WOULD LIKE THIS LISTING 
PLEASE SEND A SELP ADDRESSED ENVELOPE TO 
THE EDITOR 
6 JENANNE PLACE 
GLENFIELD 
AUCKLAND 10 

ED 


AND ivEMEMBER WHEN PROGRAMING 

RUBBISH IN 


OBiS.'H GOT 


11 FfiIKIf7,'i;E£IG?,’ED BY A.K.HcGi 1 1 , 1984’ 

12 ' 

13 ' 

14 ' 

15 ' 

16 ' 

17 PRI.TO49,'n ORSE TRAINER' 

IB ' 

19 ' 

20 ' 

21 ' 

30 PRI’ileiOO.'A PROGRATIKE TO HEL^ YOU LEARN THE MORSE CODE BY EAR TRAINING. IT IS A SGura IDEATO KEEP THE INDIVIDUAL CHARACTERS Ur 
0 A Gi-CD Sr'EED , ’ 

32 PRINT 'AND LENGTHEN THE PAUSES IF YOU NEED TO' 

90 PRINT 


MORSE PRACTICE from Keith McGill 

Words per minute variable - you select. 
Ail alphanumerics A-Z, 0-9. Plays the 
sounds, prints out simultaneously. This 
is an original program. 


cO :nput'S-eed';s 
70 N=0 
7! CLS 

PRriTi590,'TiTE A LETTER' 
9C Ll^INKEYtllF Ll==" THEN 90 


I cO 

IF 

Lt= 

"A' 

THEN 

1 10 

IF 

Li^ 

"B" 

TH09 

12C 

IF 

L5 = 

■C" 

THEN 

130 

IF 

L< = ' 

"D" 

THEN 

140 

IF 

LJ^ 

•E' 

THEN 

15: 

• n 

if 

L$ = 

II pH 

THEN 

130 

^ r 


V> 

THEN 

i 1 1/ 

t “ 

LS = 

’’H" 

THEN 

i ; k 

i." 

L$ = ' 

.j, 

THE?,’ 

1 

IF 

L$ = 

'j- 

THEN 

iUV 

IF 

L! = ' 

"K" 

THEN 

. w 

IF 

L$ = 

"L" 

THEN 

- *■ A 

IF 

L<- 

■K“ 

THEN 

-JO 

’IT 

H- 

"N“ 

THEN 

- ^ J 

IF 


li ,r a 

THEN 

•c- 

L L V 

IF 

L» = 


THEN 

2cC' 

IF 

L$^ 

"Q” 

THEN 

«. i L' 

IF 

Ls = 

'R‘ 

THEN 

* r, • 

_ ^ j 

’ r 

ii 

Li = 

II c » ' 

THEN : 

290 

IF 

Li^ 


THEN 

T '• 

,2 w 

IF 

LJ = 

•u* 

THEN 

- ! 

'C 

Li = 

’1 Tl ■ 

i 

THEN 

.2 - , 

IF 

L5 = 


THEN 

■ ' A 
; -• L.' 

i." 

LS = 

I V B 

THEN 

390 

i 

L» = 

Il-.M- 

THEN 

35.1 

IF 

LS = 

■ *T H 

THEN 

360 

IF 

L9 = 

“1“ 

THEN 

j ■ i' 

IF 

L< = 

1 

THEN 

33C 

IF 

L« = 

H ■ 

i 

THEN 

590 

IF 

LJ = 

” 3 * 

THEN 

900 

IF 

L< = 

"8' 

THEN 

910 

IF 

L4 = 

.4« 

THEN 

9. J 

IF 


"9" 

THEN 

93C 

i r 

L4^ 

VC H 

J 

THEN 

990 

IF 

L$ = 

■O' 

THEN 

i C,'. 

1 « J 

IF 

L<- 

•6“ 

THEN 

960 

IF 

L$^ 

B _ PI 

THEN 

470 

IF 

L$^ 

t ■ 

THEN 


:-£t3:G0£U5 5IO:Tr-S:GOSUB SlOlGOSUB 510:GOS'J5 510 


ID^^S . GCSUE: 1 0 : GTiUtE 1 0 : G0SUE5 1 0 ; G0SUB5 10 


=£ : GOS'JS: 1 C : TG=5t 3 : GCSU3 5 1 G : GOS'JBj 1 0 ; G0SU35 1 0 


]=S ; G0SUE5 1 0 : TD=St 3 ; G0SUB5 1 0 : G0SUB5 1 0 ; TD=S : G0SUB5 1 0 


GOSU55 : 0 : GOSLfBS 1 0 : GOSUB5 1 0 : TD=£t3 : G0SUB5 1 0 
= £ : GCSLEG 1 0 : Tl =£t 3 ; GOSUB5 1 0 : C^SUBS 1 0 
=£ r 3 ' GGSURS ! 0 : TD=S : GOSUBS 1 0 : G0SUB51 0 : TD=St3 : G0SUE5 1 0 


>£ ; COSUBG 1 0 ; G0SU55 1 0 ; TD=£t3 ; G0£UB5 1 0 ; GOSUB5 1 0 ; GOSuB5 1 0 


:-£t 3 ; GG3'J35 1 0 : G0SU35 1 0 ; GG3UB5 1 0 : GOS'JBS 1 0 ; TD^S ; GOS'JBS 1 0 


50 IF L< = '6“ THEN ID=£t3;G0£b'3510:TD=S;GO5UB510;GOSUB510;COSUB510 IGOSUBSIO 


430 N=Ihl 

99w PRIiiit40rN,L4 

so: GG'TC 80 

5;G ?LAY(1,<,4,15) :FGR D=1 TG TD:MJT:PLAY(1 .4,4,0) 
520 RETURN 


10 CL5: CLEAR 1000 
1:0 ;T=-12:Y=1 

120 PRiNTeSi,’.* flESSACES t' :Fr.!N: 

150 PRINT iFRlllT-AM ELECTROIIIC MOTIGErDfJiD" 

IVj PRK.T'bv A.K.KcGiU,CGlJC,Aucklar:d.l9£4' 

150 PS!rjT;PRIMT:FRINT'‘FRESS ANY KEY TO CONTINUE" 
liO K$ = IN'KEY«:IF K«^" THEN liO 
170 CLS 


2;0 PRINT-TYPE A LETTER - IT it'ILL APPEAR'" 

2:0 FPTJ;I;PR:i;T"'.'HEN this HESEACE DIEAPFEARi. YOU KAY 
230 FRIN::FPINT:PSINT"VHEN YC'J TYPE BE-YOND THE ffiD CP 

240 fri;;i:fr:n::frint"To abort the proorak and star: 

250 FRINTiPRINT-YOU'LL HEAR A 'FEB?' AB YOU TYPE THE 


’ START TYPING" 

' THE FOURTH LINE, THE SOP.EEN 
AGAIN, FREES THl UP A.-iROi' 
LAST LETTER IN A LIKE'" 


KILL CLEAR. AND YOU 
(^'^I'lPRINT, PRINT 


CAN START AGAIN" 


;p: print :frint 

300 -r:n:"prebs any key to oontinue" 

?:5 PS = Ii;"E0T IF THEN BIT 

;;; .s^IT' EVMF L» = “" THEN 510 

lO'Ii G=?EE}.'*I'’'B4) 1 IF G-c TALN r^Lc 'E--'.: .-^s'CL: 

110 0=C*l:!F OIB THEN Y=lfa 


c c' i t*" uii w"i6 Ok O'C'* l 

:30 FOR G=! TO lOlCALL 357C:i 
"lO IF O' 2c i.HE’i Y-33 


THEN 630 E.SE "10 
TO 50! NEXT TiJ.NEXT G 


- * T: 

F 

;'39 

ifi 

EN 1 = 

50 




^10 

P ^ 

c * 

TH 

•"»’ r',"' 

lit 

-S i LG.P 

“ ■ C ' 

0=0 : GO 

: T “i 1 

i-:ic 

y- 

'.+ 12 







Hi;. 

'it 

7-1 


■"jr” 


I' V=r 



* ' A 

T r 

Li: 


: ."lii 

GGSL'B 

21:0 


=; ‘ 

i . 

’ r 

„i = 

- H 

I" 

\3 » 'Z . 

55;: 

GOTO 

” : j 

! 4.' 2 1 

■ r 

L5: 

Ut 1 

L.' 

. nz.' 

~ ~C’"Z 

3570 

■■OCTO 

C ( *, 

1 - "j . 

IF 

LJ- 

‘.i 

i 1 . » 

-•C'5'Jr 

3530 

I 3 - T j 

c < 

! 4 . 1 -■ 

IF 

Li = 

.pv 

T- 

4nz;\ 


37 '0 

'GOTO 

510 

4 i. - 

Ir 

H = 

Mj" 

T'Lir'* 

1 1 . t_ii 

GuSUB 


• GOTO 

c, ' r. 

i L • J 


L< = 

li •" "» 

u 

THEN 

GOBUB 

3610 


510' 


IF 

L«- 

• J" 

THEN 

GC'BjB 

36.0 

'jW * ‘J 

5 1 0 


IF 

Li- 

“0" 

THEN 

GOi'uB 

3630 

GOTO 

510 



L« = 

“F" 

THEN 

GGSUB 

3640 

got: 

c , r 


IF 

L$= 


THEN 

GOSUB 

2310 

GOTO 

510 


IF 

Li = 

Y 

THEN 

GGSUB 

3t50 

GOTO 

510 

4 E . 

iF 



THEN 

GGSUB 

3660 

GOTO 

510 

! J T L 


H- 

■Y' 

THEN 

GOSUB 

ZLr'- 

UW 1 V 

GOTO 

510 

1:^5 j 

IF 

Li= 

« V *. 

THEN 

GOSUB 

w' M w- w 

GOTO 

510 

* '.I 'i 

IF 

LJ = 

• n 

THEN 

GOSUB 

3690 

GOTO 

510 

I '2 " 

IF 

L,t- 

F “ I, 

THEN 

GOSUB 

3700 

GOTO 

510 

14:0 

IF 

Ll- 

*- +• 

THEN 

GOSUB 

2510 

■GOTO 

510 

:5!0 

IF 

Lt = 

.. F 

THEN 

510 




lt:G 

' F 

l:= 

"T** 

THEN 

GOS'iIB 

2710 

:GCTC 

510 

■TIG 

IF 

Ll= 

•H" 

THEN 

GOSLT 

2910 

:GOT0 

510 

i£:o 

IF 

1.5^ 


THEN 

GOSUB 

3110 

:G0T0 

510 


IF 

LJ = 


THEN 

GOSUB. 

3410 

IGOTO 

510 


IF 

L» = 


THEN 

GOSUB 

3520 

■ 'jC i U 

510 


IF 

Li = 

•p“ 

THEN 

GOSUB 

3530 

:GOTC 

510 

193G 

IP 

L<= 


THEN 

GOSUB 

3540 

Gw i u 

510 

: 4 J 

IF 


■ C “ 

THEN 

QQS'JB 

3550 

•GOTO 

510 

1945 

IF 

LM 

ti 1 II 

THEN 

GOSUB 

3710 

I GOTO 

510 


IF 

Lt 

^ < 1 F, 

THEN GCL'JB 

3P2 

0:GGTC 

510 


2010 GOTO 510 

one PLOT 7.,Y TO X,Y+13:PLOT 7+9, Y TO ,7,y+7 TO X+9,Y+!3 
2210 RETURN 


LARGE LETTERS from Keith McGill 

Print a message from keyboard to screen. 
Four lines of up to 13 letters each line. 
Each letter about 5 spaces high. On HGR 
screen. Includes A-Z, space, !,?. This is 
an original program. 


2310 PLOT 7-9, Y TO 7,Y TO 7,i + l3 TO .•+9,Y+13:PLOI X.Y+7 TO 7+9, Y+7 
2410 RETURN 

2510 PLOT 7+5. Y TO 7+5,Y+13 
2610 RETL?.m 

271C PLOT 7,Y TO 7+9,Y:PL.0T 7+4. Y TC 7+4.Y+13 


iO RETURN 

rlO PLOT X,Y TO X,Y+13:PL0T X+9,Y TO X+9,Y+13:PLOT X,Y+7 TO X+9,Y+7 
;'01O RET’JRN 

ii:0 PLOT X,Y TO X+7,Y TO X+7,Y+1 TO X'-3.Y+2 TO a+ 9,Y*3 TO X+9,Y+4 TO X+9,Y+j TO X+£.Y+i TO X+7,Y+7 TO X,Y+7 
5210 PLOT X+7,Y+7 TO X+9,Y+0 TO X+9,Y+9 TO Xt9,Y+ll TO X>e.y+12 TO X+7,Y+13 TO X,Y+:3 TO X.Y 
3310 RETURN 

3910 PLOT X,YM3 TO X.Y TO X+5,Y*-8 TO X-9,Y TO X+’.Y+IS 
5510 RETURN 

35:0 PLOT X^9,Y TO X+3.Y TO X+2.Y+1 TO X+l,Yt2 TO X,Y+3 TO X.Y^IO TO X+1,Y*11 TO X*2,Y+12 TO X+3,Ytl2 TO Xt9,Y+13 
5525 RETLT.IJ 

3535 PLOT X,Y+13 TO X.Y TO X+7,Y TO X+3,iM TO X+9.Y+2 TO X+9,Yti TO X+3.Y+7 TO X+7,Y+8 TO X,Y+8 
5532 PLOT X+7,Y+6 TO X+'S.Y+IS 
3535 RETURN 

55-;3 PL32 X.Y+13 TO X.Y TO Xt7,Y-13 TO X-".Y 


55: 2 -.22 Xt9,Y TO X+3.Y TO Z-T.YtI 20 X-;.Y*2 TO X,Y‘3 TO X.Y*4 TO XM.Y+5 TO X+2,Y+i TO X^2.Y+7 TO Xtfc,Y»7 TO X+7.Yr3 TCX+3.Y+9 T 
5 X-^^V-lO TO X+'JJ+ll TO X+b,Y+12 TO T-".!’15 TO O.Y^IO 

-ZZ’’. 1 - ."tM 

25::: PLOT X^3.Y-3 72 ;;-3.V-2 TO At7,Y+: TO 0+4.Y TO X+3.Y TO X-2.Ytl TO X^l,Y+2 TO X,V‘3 TO X,Y+il TO XH.Y-i: TO Xt2,V+13 TO Z^S.Yf 
13 10 X‘7.Y+12 TO X"3,Y^-;1 TO 5 + 3. Y+£ 

35:2 PL2I X+9,y-3 TO X*7.Yt& 


55"2 PLOT X,Y TO X.Y+13 TO Xt^.Y+ll 


5:55 PLOT X,Yt15 TO X*5.Y TO Xt9.Y+13 
5:50 PLOT Xt 3,Y+8 TO X+o.Yt3 


r_.i /.i-9,Y TO X,V TC X.^^lS 
; = -2 -..o: x,Y*s TO Xrc.vtg- 
5 ^'5 RETURN 

55:; R-o: r.y to x,y*;; to x-!,y+;o to u^o.Y:!] to a+s.yms to x*',y+i2 to x^3,y+ii to x+t.y+io to x*7,y 

2:05 RETURN 

5;:; RUOT X,Y TOX+6.Y TO X^T.YM IC X+E,Y*2 TO X:5.Y+3 TO X*3.YrlC TO X+a.Y +11 TO X+7,Y+12 TO Xtfc.Y^lO TO X,Y+13 TO X.Y 


5:5; P.OT X.Y+3 TO X,Y-11 TO X:l,Ytl2 TO X■^2,Y+15 TO X+7.Y-;5 TO X-3.Y+12 TO X*?.Y*11 TO X+9,Y 
2:25 RETURN 

5:55 R.TT X+5.Y TO X+c.Y TO X+7.Y+1 TO X-8 ,Yt 2 TO X^7.Y+3 TO X+P.YMC TO X-rS.Y+ll TO X+7.Y+12 TO .X-6,Y+;3 TO X+3,Y+13 TO X+O.Yi-IZ 
‘5 X^;.Y:li TC X,Y+i: TO X,Yt3 TO X+l.Y*: TO X+2.Y+1 TO X+S.Y 


5:95 PuOT X.Y+13 TO X.Y TO X-7.Y TO X+S.YM TO X+9,Y+2 TO X+9,Y+3 TO X+9,Y+6 TO X+9,Yt7 70 X+7,Y+e TO X,Y+9 
R.^iuRN 

3650 PLOT X.Y TO X+5,;:13 TC X+9.Y 
5655 RETURN 

5-:: FL:T X.Y to X+2,Y-13 to X+5.Y+8 TO X+7,Y+13 TO X+9.Y 
:£:5 r.n.L'RN 

5:7; R_OT X.Y TO X+5.Y-3 TO X+5.Y+13 
5:'! '^UCT X+5,Y+8 TO X+P,Y 
36'5 RETURN 

563 5 ,'^l.OT X.Y TO X+9.Y+l:3:PLOT Xt9,Y TO ,5.7+13 
3:35 .RETUn'N 

267: F.GT X.Y TO X+9,Y TO X,Y+13 TO X+R.Y+IS 
2; 75 RETURN 

57C0 PUTT X+?,Y TO X+6.,Y TO X+7,Y+1 TO X+9,Y+2 TO X+7,Y+3 TO X+9,Y+10 TO X+8,Y+11 TO X+7,Y+12 TO X+6,Y+12 TO X+3,Y+13 TOX+2,Y+12 TO 
X+l.Y+1! TO X.Y+10 T2 .X.Y+3 TO X+1,Y+: TO X+2.Y+1 TO X+3.Y 
37-::2' FLGTX+6.y+10 TO .X+9,Y+13 
3705 RETURN 

3713 PLOTX1-5.Y TO X+5 .Y+10 :PLGT X+5,Y+12 TO X+5,Y+13 
3715 RETURN 

3725 PLOT X+2,Y+3 TO X+4,Y+1 TO X+7,Y+1 TC X+9,Y+2 TO X+lC,Y+4 TO X+9,Y+6 IC X+7,Y+7 TC X+5,Y+8T0 X+S.Y+lClPLOT X+5,Y+12 TO .X+5.Y+1 


3725 RETURN 


10 ’ POKER L11/16K BY STEPHEN FRANZON 

20 ’ 10 BRODEN RD WEST BEACH 5024 

30 ’ COPYRIGHT (C) JULY 1981 

35 ’CONVERTED FOR COLOUR GENIE 

36 ’BY DON EDWARDS 

40 RANDOM: C=10: DIMA* ( 13) : CHAR4 

50 CLS: C0L0UR4: PRINT9255, CHR»<23) ; "P O K E R 

60 C0L0UR2:PRINT§325, "DO YOU WANT INSTRUCTIONS" COLOURl : PRINT* <Y/N>*J 

70 A*= I NKEY* : I F A*= " " GOT070 

80 IFA*=*Y"G0SUB1960: GOTOlOO 

90 IFA*< > “N“G0T070 

100 F0RS=1T013: READA* (Q) : NEXTQ 

110 DATA " ACE " , "TWO" , "THREE", "FOUR" , "FIVE*, "SIX", "SEVEN* , "EIGHT" , "NINE*, "TEN", " JA 
CK* , "QUEEN" , "KING* 

120 P(0)=2:P(1)=3:P(2)=5:P(3)=7:P(4)=10:P(5)=40:P(6)=100:P(7)=400 
1 30 F0RQ=0T04 : A ( Q ) =0 : D { Q ) =0 B ( Q ) =0 : V ( Q ) =0 : C ( Q ) =0 : NEXTQ : Z=0 : F=0 
140 ’*-iH(-SCREEN SET UP-JHHt 

150 COLOUR6: CLS:PRINT§0, "BETS = M; : PRINTS24 ," CREDITS = * ; C ; : C0L0UR4: PRINTS52, * 
PAYOUTS* ; 

160 C0L0UR2:PRINT580 ,*TW0 pair =" ;P(0) ; :PRINTS120, "3 / KIND =*;p(l) ; ;PRINTS160, 
"STRAIGHT =“ ;p<2) ; :PRINT§200, ’FLUSH =";P<3)S 

170 PRINT596, "FULL HOUSE = * ; P ( 4 ) ; : PR INTS136 , " 4 / KIND = " ; P ( 5 ) ; : PRI NT5176 , "STR / 
FLUSH =" ; P (6) ; : PRINTS216, "RYL/FLUSH =*;P(7); 

ISO IFZ=1RETURN 
190 F0RR=1T05: F=165 

200 0NRG0SUB450, 460, 470, 480 , 490 : G0SUB156O 
210 NEXTR 

220 ’***CHOOSING CARDS^H^■)^ 

230 S=1:F0RQ=0T04 
240 A(Q)=RND«13) 

250 D(Q)=RND(4) 

260 B(Q)=A(Q) +D(Q)*20 
270 Y=0 

280 IFB (Q) =C (Y) G0T0240 

290 IFY=QTHENY=Y+1 : IFY=5GOT0320 ELSE280 

300 IFB (Q) =B ( Y) G0T0240 

310 Y=Y+i: IFY=5THENGOT0320ELSE280 

320 IFS=0G0T0350 

330 IFS=1THENNEXTQ 

340 G0T0370 

350 G0T0630 

360 ’***PLACINQ BETS*#* 

370 COLOUR 5: PRINTSZ90, 'PRESS* ; 

380 C0L0UR2: PRINTS305, *B TO PLACE BETS"; 

390 PRINT5345, "D TO DRAW*; 

400 A»»* *:A»=INKEY»: IFA»a**GOT0400 

410 C0L0UR4: IFA*=*B*ANDC>=1THENC=C-1:M=M+1:PRINT97,M; :PRINT934,C; : COLOURS : GOT040 
0ELSEIFC<=0ANDA*=*B*THENPRINT»378, "YOU CAN’T BET ANY MORE. *;: PR1NT9418, "YOU’ LL H 
AVE TO DRAW* ; : G0T0400 

420 IFA*»*D"ANDM=0THENPRINTS379, "YOU MUST PLACE A BET* F0RQ=1T01000 : NEXT : PRINTS 
379, CHR* (30) ELSEIFA»»*D*QOT01650 
430 G0T0400 

440 ’***STARTING POINTS FOR DRAWING CARDS*** 

450 A=561 : T=»600 : B=606: Y=8ai : Z-601 : H»643: RETURN 
460 A*569;Ta608:B*6i4;Y=8a9:Z=609:H=65i: RETURN 
470 A=577 : T=6 1 6 : B=622: Y=897 : Z-617 : H>659 ; RETURN 
480 A=585 : T=624 : B=630 : Y»905 : Z»62S : H«667 : RETURN 
490 A=593 : T=632 : B=638 : Y*913: Z»633 : H»675 : RETURN 
500 ’***HOLDINQ CARDS*** 

510 PRINTS305,CHR*{30) 5 : PRINT8345, CHR* (30) ) : PRINT5378, CHR* ( 30 ) ; : PRINT9410 , CHR* ( 3 
0) 

520 C0L0UR2:PRINT9298, *1 - 5 TO HOl-D CARDS* I 
530 PR1NT*338,*C TO CANCEL HELD CARDS* J 
540 PRINT*378,*D TO DRAW"; 


r 


550 COLOURS: PRINTS446, " 1 " i : PRINT§453, "2“ i : PR1NTS460, "3" ; :PRINT§467, "4“ ; : PRINTS4 
74, "5“f 

560 A»=" * :A»= INKEYS : IFAS= " " 60T0560 
570 IFAS=* 1 -THENPRINTSAAA, "HELD*; :V;<0)=1 
580 IFAS**2*THENPRINTS451 , "HELD"; :V(1)=1 
590 IFAS="3"THENPRINT5453, "HELD"; : Vt2)=I 
600 IFAS=*4"THENPRINT9465, "HELD" ; : V(3) =1 
610 IFAS="5"THENPRINT947Z, "HELD" ; : V (4) =1 

620 IFAS="C"THENPRINTS440, CHRS(30) ; : F0RQ=0T04 : V ( Q ) =0: NEXTQ: Q0T0550 
630 IFAS*-D’THEN660 
640 G0TQ360 

650 ’^HHtREPRlNTING THE NEW CARDS*-iHf 
660 S=0: F0RQ=0T04 

670 IFV(Q)=OTHENC(GI)=B(Q) : G0T0240 

680 IFV ( Q ) =0THENR=Q+ 1 : ONRG0SUB450 , 460 , 470 , 4S0 , 490 : F=249 : GOSUBl 620 
690 NEXTQ 
700 F0RQ=0T04 

710 IFV (Q) =0THENR=Q+1 : 0NRG0SUB450, 460, 470, 480, 490: F=32 : G0SUB1620: G0SUB1700 
720 NEXTO 

730 ’***PUTTING CARDS IN ORDER*** 

740 F0RI=1T04 
750 F0RJ=0T0I-1 

760 IFAtJl >A<I)THENK=A(I) : A ( I ) =A ( J ) : A ( J ) =K 
770 NEXTJ 
780 NEXT I 

790 ’***CHECKINQ FOR WINS*** 

800 T=i:v=o 

310 0NT60SUBS50, 890, 940, 1010, 1050 
820 IFV=0THENT=T+1 : IFTO6G0T0810 
330 forq=itoiooo:nextq;gotoio90 
840 •***FOUR OF A KIND*** 

850 IFA ( 0 ) =A ( 1 ) ANDA ( 1 ) =A ( 2 ) ANDA ( 2) =A ( 3 ) THENV= 1 
360 1 FA ( 1 ) =A ( 2 ) ANDA < 2 ) =A ( 3 ) ANDA ( 3 ) =A ( 4 ) THENV= 1 
870 RETURN 

380 ’***THREE OF A KIND AND FULL HOUSE*** 

890 IFA (0) =A ( 1 ) ANDA ( 1) =A<2) THENV=2: IFA (3) =A<4) THENV=V+1 
900 I F A < 1 ) =A ( 2 ) ANDA ( 2 ) =A ( 3 ) THENV=2 

910 IFA(2)=A<3) ANDA(3)=A(4)THENV=2: IFA ( O ) =A ( 1 ) THENV=V+ 1 

920 RETURN 

930 ’***TWO PAIR*** 

940 P=0: IFA(0)=A(1)P=P+1 
950 IFA ( 1 ) =A (2) P=P+1 
960 IFA (2)=A(3) P=P+1 
970 IFA (3) =A (4) P=P+1 
980 IFP=2THENV=4 
990 RETURN 
1000 ’***FLUSH*** 

1010 IFD ( O ) =D ( 1 ) ANDD ( 1 ) =D ( 2 ) ANDD ( 2 ) =D ( 3 ) ANDD ( 3 ) =D ( 4 ) THENV=5: G0SUB1050 

1020 IFV=6THENV=8 

1030 RETURN 

1040 ’***STRAIGHT*** 

1050 IFA(O) +1=A(1) ANDA(l) +1=A(2) ANDA(2) +1=A (3) ANDA (3) ♦l=A(4) V*V+6 
1060 IFA<0)=1ANDA(1) +A (2) +A (3) +A (4) =46THENV=6 
1070 RETURN 

1080 ’***PRINTINQ UP WINNINGS*** 

1090 IFV=0G0T01520 
1100 CLS 

mo colours: IFV=1THENE*P( 5) *M:PRINT9485, "FOUR OF A KIND. COLLECT*;E; 

1120 IFV=2THENE*P(1)*M;PRINT9483, "THREE OF A KIND. COLLECT*;E; 

1130 IFV=3THENE»P(4)*M:PRINT§485, "FULL HOUSE. COLLECT";E; 

1140 IFV=4THENE=P(0)*M:PRINT9485, "TWO PAIR. COLLECT" ;E; 

1150 IFV=5THENE=P(3)*M:PRINT5485, "FLUSH. COLLECT" ;E; 

1160 IFV=6THENE=P (2) *M^PRJ^NT9485, "STRAIGHT. COLLECT";E; 

— 1170 IFV=8THENE=P (7) *M:PRINT9485, "ROYAL FLUSH. COLLECT";E; 

1180 IFV*11THENE»P(6)*M:PRINTS485, “STRAIGHT FLUSH. COLLECT";E; 


1190 '♦■JHtCOLLECT OR DOUBLE UP*** 

1 200 COLOURS : F0RT=0TO7 ; p < T ) =P ( T ) : NEXTT 

1210 PRINTS571, "DOUBLE UP - PRESS D*; 

1220 PRINTS611, “COLLECT WINNINGS - PRESS C"; 

1230 A*=INKEY*: IFA*=“ “G0T01230 
1240 IFA*=“C“THENC=C+E:M*0:G0T0120 
1250 IFA*<>"D"THENA*=*“;G0T01230 
1260 ’ *-SHfrDOUBLE UP*-JH(- 

1270 Z=1:CLS;GOSUB160:cOLOUR4:PRINT»7, “DOUBLE PAYOUTS" I 
1280 G0SUB470:G0SUB1560 
1290 A(2)=RND(13) 

1300 D(2)=RND<4) 

1310 C0L0UR6:PRINT5284, "PRESS B FOR BIG “S 
1320 PRINT5300, • (LARGER THAN EIGHT) “> 

1330 PRINTS362, “PRESS S FOR SMALL"; 

1340 PRINTS380, “ (SMALLER THAN EIGHT)-; 

1350 A*=INKEY»: IFA*=“ "30T01350 

1360 C0L0UR6: 1FA*="B“PRTNTS932, "YOUR GUESS IS BIG" ; : G0T01390 
1370 IFA»="S"PRINTS932, "YOUR GUESS IS SMALL ";: GOTOl 400 
1380 G0T01350 

1390 IFA*="B"ANDA(2) >3THEN1420 
1400 IFA*="S"ANDA (2) <8THEN1420 
1410 G0T01460 

1420 R=3:F=32 : G03UB470:GOSUB1620:GOSUB1700 
1430 forq=itoiooo;nextq 

1440 colours: CLS;E=E^ f2:PRINTS440, "CONGRATULATIONS - YOU GUESSED CORRECTLY COLO 
UR6:PR1NT§520, "C0LLECT";E; " double up again press D"; 

1 450 F0RQ=0T07 : P ( Q ) =P ( Q ) « *. NEXTQ : G0T01220 
1460 R=3:F=32 : GOSUB470: GOSUB 1 620 IGOSUB 1700 
1470 F0RT=1T01000: NEXTT 

1480 colours: CLS:PRINTS488, "YOU GUESSED INCORRECTLY ";: F0RT=1 TO500 : NEXT 

1490 IFC<=0THENCLS:PRINT§480, "SORRY - YOU’VE GOT NOTHING ELSE TO PLAY WITH....*; 

: F0RQ=1 T03000 : NEXT : CLS: END 

1500 FORQ=1T02000:NEXT 

1510 M=0:G0T0120 

1520 colours: IFC<= 0THEN1490ELSECLS: PRINTS487, "SORRY, YOU WON NOTHING ";: COLOURl : P 
RINTS567, "PRESS ANY KEY TO CONTINUE"; 

1530 A»=INKEY*: IFAS=" "G0T01530 
1540 G0T01510' 

1550 DRAWING UP CARDS-JHHt 

1560 C0LDUR7:PRINT9A, STRING* (5 ,218); 

1570 PRINTiY,STRIN6*(5 ,211); 

1580 PRINT»T,CHR»(219) ; :T=T+40: IFT>879GOT01600 
1590 G0T01580 

1600 PRINTSB,CHR»(207) ; :B=B+40: IFB>879THENF*249; G0T01620 
1610 G0T01600 

1620 C0L0UR7:PRINTSZ, STRING* (5 ,F); 

1630 Z»2+40: IF2>879RETURN 
1640 GOTOl 620 
1650 FORR»lT05 

1660 0NRG0SUB490,460, 470, 480, 490 
1670 Fs32 :GaSUB1620:GOSUB1700 
1680 NEXTR 
1690 G0T0510 

1700 OND ( R- DGOSUB 1720, 1760, 1790, 1840: GOSUB 1900 
1710 RETURN 

1720 C0L0UR3:H«H*1:PRINTSH,CHR*(244) ♦CHR*(32) +CHR*(244) :H=H+39 

1730 PRINT*H,CHR»(238)+STRING*(3,202) +CHR*<243) :H=H+41 

1735 PRINT«H,STRING*(3,202) :H=H+40 

1740 PRlNTiH,CHR*(228) +CHR*(202) +CHR*(226) :H*H+41 

1745 PRINT9H,CHR*(229) 

1750 RETURN 

1760 C0L0UR6:H«H+40:PR1NT»H,CHR»(244) :h=h-i 
1762 PRINT9H,CHR*(205) ♦CHR*(202) +CHR* (224 ) : H«H+40 


1763 PRINTSH, STRING* (3, 202) : H = H + ';0 

1770 PRINT9H, CHR* (223) +CHR* (202) +CHRS (226) ;H=H+40 
1775 PRINT§H,CHR*(205)+CHR«(202) +CHR*(224) 

1780 RETURN 

1790 C0L0UR6: PRINTSH, CHR* (244 ) : 

1793 PRINTSHjCHR* (238) +CHR* (202) +CHR* (245) :H=H+39 
1300 PRINT5H, CHR*(238) +STRINe* ( 3 , 202 ) +CHR* (245) : H=H+41 
1810 PRINTSH, CHR* (229) +CHR* (202) +CHR* (229) : H=H+41 
1830 RETURN 

1840 C0L0UR3:PRINT§H,CHR*(244) : H=H+39 
1350 PRINTSH, CHR* ( 205 ) +CHR* ( 202 ) +CHR* ( 224 ) :H=H+39 
1360 PRINTSH, CHR*(23S) +STRING* ( 3 , 202) +CHR*(245) ;H=H+41 
1870 PRINTSH, CHR* ( 228 ) +CHR* ( 202 ) +CHR* (226) :H=H+41 
1380 PRINTSH, CHR*(229) 

1390 RETURN 

1900 B*(R-1) =A*(A(R-1) ) 

1910 C0L0UR7: PRINTSZ-280, B* (R-1 ) J 
1920 P=LEN(B»(R-1 ) ) 

1930 J=Y-35-P 

1940 PRINTSJ , B* (R- 1 ) ; 

1950 RETURN 

1960 CLS:C0L0UR4:PRINT§12, "** POKER 

1970 C0L0UR2:PRINT; PRINT" THIS GAME IS VERY SIMPLE TO PLAY. YOU START OF WITH T 
EN CREDITS AND YOU BET AS MANY AS YOU LIKE ON EACH HAND. THEN YOU DRAW THE CARDS 
AND SELECT THE CARDS YOU WANT TO HOLD. YOU THEN DRAW THE CARDS AGAIN AND YOU 
ARE TOLD IF_ 

1980 PRINTIPRINT 

■IF YOU WIN YOU HAVE THE CHOICE TO DOUBLE UP OR TO COLLECT YOUR MONEY. IF YOU 

DOUBLE UP, YOU WAGER YOUR WINNINGS ON WHETHER A CARD IS BIG ( GREATER THA 

N EIGHT ) OR WHETHER IT IS SMALL ( LESS THAN EIGHT )."; 

1990 PRINT" IF YOU GUESS CORRECTLY, YOU WIN TWICE THE AMOUNT YOU ORIGINALLY WON 

. THE GAME CONTINUES UNTIL YOU RUNOUT OF CREDITS. GOOD LUCK * 

2000 COLOUR! : print; INPUT"PRESS < RETURN ) TO START PLAYING. "JL 
2010 CLS: RETURN 






A FINAL WORD 

PM qPNniNP IN PROORAMS (WHICH WE LOVE I O tb H IF I" 
It; ™ PflFER AS- WE Hfl.’E TO RECEPY EROGRAWS THAT^ 
ID THIS LEADS TO POORER REPR0DUC1 ION AND ALoO MEhI p 
!U DON’T GET YOUR NEWSLETTER AS QUICKLY. 
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A4 IS THE NEWSLETTER SIZE 



